
*Figures 2, W5, W6 and W7


foreach var in worker_cit  worker_lim worker_isco  {
preserve
replace hier_pos="" if hier_pos=="nom" & valar<1982

keep if  hier_pos!=""
keep if  valar>=1973
collapse (mean) `var' `var'_pop_y `var'_pop_ym, by (hier_pos valar)
gen  `var'_rel = (`var')/`var'_pop_ym if hier_pos!="parl"
replace `var'_rel = (`var')/`var'_pop_y if hier_pos=="parl"
twoway (connected `var' valar if hier_pos=="nom",  msize(medsmall)   mcolor(gs3)  lcolor(gs3) lpattern(dash)) /// 
(connected `var' valar if hier_pos=="vald",  msize(medsmall)   mcolor(gs5)  lcolor(gs5) lpattern(dash)) ///
(connected `var' valar if hier_pos=="leader",  msize(medsmall)   mcolor(gs7)  lcolor(gs7) lpattern(dash)) ///
 (connected `var' valar if hier_pos=="parl",  msize(medsmall)    mcolor(gs9)  lcolor(gs9) lpattern(dash)) ///
  (connected `var'_pop_y valar if hier_pos=="vald",  msize(medsmall)    mcolor(gs1)  lcolor(gs1) lpattern(solid)), ///
 scheme(s1mono)  xlabel(1973 1976 1979 1982 1985 1988 1991 1994 1998 2002 2006 2010 2014 2018, angle(45)) plotregion(lcolor(none)) ///
 ylabel(, grid angle(horizontal)) xtitle(Election Year) ytitle(Share of Workers) 
 graph save hier_`var'_time, replace

 twoway (connected `var'_rel valar if hier_pos=="nom",  msize(medsmall)   mcolor(gs3)  lcolor(gs3) lpattern(dash)) /// 
(connected `var'_rel valar if hier_pos=="vald",  msize(medsmall)   mcolor(gs5)  lcolor(gs5) lpattern(dash)) ///
(connected `var'_rel valar if hier_pos=="leader",  msize(medsmall)   mcolor(gs7)  lcolor(gs7) lpattern(dash)) ///
 (connected `var'_rel valar if hier_pos=="parl",  msize(medsmall)    mcolor(gs9)  lcolor(gs9) lpattern(dash)) , ///
 scheme(s1mono)  xlabel(1973 1976 1979 1982 1985 1988 1991 1994 1998 2002 2006 2010 2014 2018, angle(45)) ///
 ylabel(, grid angle(horizontal)) xtitle(Election Year) ytitle("Worker's Relative Representation Share on Level/Share in Pop.")  yline(1, lcolor(gs5) lpattern(dash))  plotregion(lcolor(none))
 graph save hier_`var'_rel_time, replace
bysort hier_pos: sum `var'_rel
 restore
 graph combine hier_`var'_time.gph hier_`var'_rel_time.gph, col(2) row(1) ysize(7) xsize(20) scheme(s1mono) iscale(1.2)
 
 graph save `var'_`samp'_time, replace
}
foreach var in   non_uni_a25_65 worker_mode low_inc worker_37 {
preserve
replace hier_pos="" if hier_pos=="nom" & valar<1982

keep if  hier_pos!=""
keep if  valar>=1973
collapse (mean) `var' `var'_pop_y , by (hier_pos valar)

twoway (connected `var' valar if hier_pos=="nom",  msize(medsmall)   mcolor(gs3)  lcolor(gs3) lpattern(dash)) /// 
(connected `var' valar if hier_pos=="vald",  msize(medsmall)   mcolor(gs5)  lcolor(gs5) lpattern(dash)) ///
(connected `var' valar if hier_pos=="leader",  msize(medsmall)   mcolor(gs7)  lcolor(gs7) lpattern(dash)) ///
 (connected `var' valar if hier_pos=="parl",  msize(medsmall)    mcolor(gs9)  lcolor(gs9) lpattern(dash)) ///
  (connected `var'_pop_y valar if hier_pos=="vald",  msize(medsmall)    mcolor(gs1)  lcolor(gs1) lpattern(solid)), ///
 scheme(s1mono)  xlabel(1973 1976 1979 1982 1985 1988 1991 1994 1998 2002 2006 2010 2014 2018, angle(45)) plotregion(lcolor(none)) ///
 ylabel(, grid angle(horizontal)) xtitle(Election Year) ytitle(Share of Workers) 
 graph save hier_`var'_time, replace

 restore

}

 graph combine hier_non_uni_a25_65_time.gph  hier_low_inc_time.gph hier_worker_37_time.gph  hier_worker_mode_time.gph, col(2) row(2) ysize(13) xsize(20) scheme(s1mono) iscale(.8)
 graph save figure_w6, replace
 


 
foreach var in   worker_lim {
preserve
replace hier_pos="" if hier_pos=="nom" & valar<1982
keep if  hier_pos!=""
keep if  valar>=1973
collapse (mean) `var' `var'_pop_yg `var'_pop_ygm, by (hier_pos valar  woman)
gen  `var'_rel = (`var')/`var'_pop_ygm if hier_pos!="parl"
replace `var'_rel = (`var')/`var'_pop_yg if hier_pos=="parl"
gen man=woman==0
foreach gender in man woman{
twoway (connected `var' valar if hier_pos=="nom" & `gender'==1,  msize(medsmall)   mcolor(gs3)  lcolor(gs3) lpattern(dash)) /// 
(connected `var' valar if hier_pos=="vald"  & `gender'==1,  msize(medsmall)   mcolor(gs5)  lcolor(gs5) lpattern(dash)) ///
(connected `var' valar if hier_pos=="leader"  & `gender'==1,  msize(medsmall)   mcolor(gs7)  lcolor(gs7) lpattern(dash)) ///
 (connected `var' valar if hier_pos=="parl"  & `gender'==1,  msize(medsmall)    mcolor(gs9)  lcolor(gs9) lpattern(dash)) ///
  (connected `var'_pop_ygm valar if hier_pos=="vald" & `gender'==1,  msize(medsmall)    mcolor(gs1)  lcolor(gs1) lpattern(solid)), ///
 scheme(s1mono)  xlabel(1973 1976 1979 1982 1985 1988 1991 1994 1998 2002 2006 2010 2014 2018, angle(45)) plotregion(lcolor(none)) ///
 ylabel(, grid angle(horizontal)) xtitle(Election Year) ytitle(Share of Workers) 
 graph save hier_`var'_`gender'_time, replace
}
graph combine hier_`var'_man_time.gph hier_`var'_woman_time.gph, col(2) row(1) ysize(7) xsize(20) scheme(s1mono) iscale(1.2) ycommon
 
 graph save Figure_3, replace
 restore
}

*** Figure 5*****************
preserve
keep if hier_pos!="" 
*& (((num_elec>=5  & num_leader==1)|hier_pos=="parl")|valar<1980)
foreach parti in V S G F K C M B{
gen worker_lim_`parti' = worker_lim ==1  if parti_initial=="`parti'"

gen wsh_pvoters_`parti' = wsh_pvoters  if parti_initial=="`parti'"
gen wsh_valu_pvoters_`parti' = wsh_valu_pvoters   if parti_initial=="`parti'"	
}

foreach parti in V S G F K C M B{
bysort year: egen base = mean (worker_lim)  if parti_initial=="`parti'" &  hier_pos=="parl"
gen worker_rel_psu_`parti'= (base)/wsh_y_pvoters  if parti_initial=="`parti'"
gen worker_rel_valu_`parti' =(base)/wsh_y_valu_pvoters   if parti_initial=="`parti'"	
gen worker_rel_pop_`parti' =(base)/ worker_lim_pop_y   if parti_initial=="`parti'"	
drop base
}

collapse (mean) worker_lim_V- wsh_valu_pvoters_B worker_lim_pop_ym worker_rel*  , by (llkk valar  hier_pos mun  )

collapse (mean)  worker_lim_V- wsh_valu_pvoters_B worker_lim_pop_ym worker_rel*  , by ( hier_pos valar )
foreach parti in V S G F K C M B{
	replace worker_rel_psu_`parti' =(worker_lim_`parti' )/wsh_pvoters_`parti'  if  hier_pos!= "parl"
replace worker_rel_valu_`parti' =(worker_lim_`parti' ) / wsh_valu_pvoters_`parti' if   hier_pos!= "parl"
replace worker_rel_pop_`parti' =(worker_lim_`parti') /worker_lim_pop_ym  if   hier_pos!= "parl"
}


foreach parti in V S G  C M {
	gen lab_`parti'="`parti'"
}
gen lab_K="Cd"
gen lab_F="L"
gen lab_B="Sd"


keep if valar>=1982
collapse  (mean) worker_rel* , by (hier_pos )
foreach parti in  S G  C  {
	gen lab_`parti'="`parti'"
}
gen lab_K="Cd"
gen lab_F="Lib"
gen lab_B="Sd"
gen lab_V="L"
gen lab_M="Cons"
gen pos =1  if hier_pos=="nom"
replace  pos =2  if hier_pos=="vald"
replace  pos =3  if hier_pos=="leader"
replace  pos =4  if hier_pos=="parl"
sort pos

foreach ref in valu pop{
twoway (connected worker_rel_`ref'_G pos ,  msize(zero) mlabel(lab_G) mlabsize(large) mlabcolor(forest_green) mlabposition(0) lcolor(forest_green) lpattern(dash)) /// 
(connected worker_rel_`ref'_S pos ,  msize(zero) mlabel(lab_S) mlabsize(large) mlabcolor(cranberry) mlabposition(0) lcolor(cranberry) lpattern(dash)) ///
(connected worker_rel_`ref'_V pos ,  msize(zero) mlabel(lab_V) mlabsize(large) mlabcolor(maroon) mlabposition(0) lcolor(maroon) lpattern(dash)) , ///
xlabel(1 "Nominated" 2 "Elected" 3 "Local Leader" 4 "MP" ) scheme(s1mono) ///
ylabel(, grid angle(horizontal))  yline(1, lcolor(gs5) lpattern(dash)) ///
xtitle(Position) ytitle("Worker's Relative Representation Share on level/Share in pop.") title(Left-Wing Parties, size(medium)) legend(off) plotregion(lcolor(none))  xscale(range(.8 4))
graph save rel_`ref'_left, replace


twoway (connected worker_rel_`ref'_B pos ,  msize(zero) mlabel(lab_B)  mlabsize(large) mlabcolor(dkorange) mlabposition(0) lcolor(dkorange) lpattern(dash)) ///
  (connected worker_rel_`ref'_M pos ,  msize(zero) mlabel(lab_M)  mlabsize(large) mlabcolor(dknavy) mlabposition(0) lcolor(dknavy) lpattern(dash)) ///
   (connected worker_rel_`ref'_F pos ,  msize(zero) mlabel(lab_F)  mlabsize(large) mlabcolor(navy) mlabposition(0) lcolor(navy) lpattern(dash)) ///
    (connected worker_rel_`ref'_K pos ,  msize(zero) mlabel(lab_K)  mlabsize(large) mlabcolor(blue) mlabposition(0) lcolor(blue) lpattern(dash)) ///
 (connected worker_rel_`ref'_C pos ,  msize(zero) mlabel(lab_C) mlabsize(large) mlabcolor(green) mlabposition(0) lcolor(green) lpattern(dash)), ///
xlabel(1 "Nominated" 2 "Elected" 3 "Local Leader" 4 "MP" ) scheme(s1mono) ///
ylabel(, grid angle(horizontal))  yline(1, lcolor(gs5) lpattern(dash)) ///
xtitle(Position) ytitle(Difference Share Workers on Position and in Population (%)) title(Right-Wing Parties, size(medium)) legend(off) plotregion(lcolor(none))  xscale(range(.8 4))
graph save rel_`ref'_right, replace
restore
}

graph combine rel_pop_left.gph rel_pop_right.gph ///
				rel_valu_left.gph rel_valu_right.gph, ///
				col(2) row(2) ycommon scheme(s1mono) iscale(.7) ysize(13) xsize(20)
graph save Figure_5



	preserve
	replace listleader_first=. if num_elec<5 & num_leader!=1 & num_elec!=. & vald!=1
drop if vald_prev==. |worker_lim==.
replace vald_prev=5 if vald_prev>5 & vald_prev!=.
	collapse (sum) listleader_first vald_ri_first, by(worker_lim vald_prev)
	replace vald_prev=vald_prev-.2 if worker_lim==1
	replace vald_prev=vald_prev+.2 if worker_lim==0
	foreach var in listleader_first vald_ri_first{

	bysort worker_lim: egen `var'_sum= sum(`var')
	gen `var'_sh = `var'/ `var'_sum
	twoway (bar `var'_sh vald_prev if worker_lim==1,  fcolor(gs6) fintensity(100) lcolor(gs6) barwidth(.4)) ///
	(bar `var'_sh vald_prev if worker_lim==0,  fcolor(gs0) fintensity(100) lcolor(gs0) barwidth(.4)), ///
 scheme(s1mono)  xlabel(0 1 2 3 4 5 "5+",) ///
 ylabel(, grid angle(horizontal)) xtitle(Previous Election Periods as Councilor) ytitle(Share of `var') legend(order(1 "Workers" 2 "Non Workers"))
	graph save `var'_exp, replace

	}
graph combine listleader_first_exp.gph vald_ri_first_exp.gph,  xcommon iscale(1.3) ysize(7) xsize(20) scheme(s1mono)
	restore	
	
**Figure W3
	foreach var in listleader vald_ri_prom{
	preserve
	replace listleader=. if num_elec<5 & num_leader!=1
	replace vald_prev=5 if vald_prev>5 & vald_prev!=.
	
	keep if vald==1
	collapse (mean) `var', by(parti_initial vald_prev)
	foreach p in V S G F C M K B{

	twoway (bar `var' vald_prev if parti_initial=="`p'",  fcolor(gs6) fintensity(100) lcolor(gs6) barwidth(.8)), ///
 scheme(s1mono)  xlabel(0 1 2 3 4 5 "5+",) ///
 ylabel(, grid angle(horizontal)) xtitle(Previous Election Periods in Office) title(`p') ytitle(Share of `var')
	graph save `var'_exp_`p', replace

	}
	restore
}

	graph combine listleader_exp_V.gph vald_ri_prom_exp_V.gph ///
				listleader_exp_S.gph vald_ri_prom_exp_S.gph ///
				listleader_exp_G.gph vald_ri_prom_exp_G.gph ///
				listleader_exp_C.gph vald_ri_prom_exp_C.gph ///
				listleader_exp_F.gph vald_ri_prom_exp_F.gph ///
				listleader_exp_K.gph vald_ri_prom_exp_K.gph ///
				listleader_exp_M.gph vald_ri_prom_exp_M.gph ///
				listleader_exp_B.gph vald_ri_prom_exp_B.gph ///
	,  xcommon iscale(.4) ysize(20) xsize(17) scheme(s1mono) col(2)
graph save Figure_W3, replace

*Figure W4
	foreach var in listleader vald_ri_prom{
	preserve
	replace listleader=. if num_elec<5 & num_leader!=1
	replace vald_prev=5 if vald_prev>5 & vald_prev!=.
	
	keep if vald==1
	collapse (mean) `var', by(worker_lim vald_prev)
	replace vald_prev=vald_prev-.2 if worker_lim==1
	replace vald_prev=vald_prev+.2 if worker_lim==0
	twoway (bar `var' vald_prev if worker_lim==1,  fcolor(gs6) fintensity(100) lcolor(gs6) barwidth(.4)) ///
	(bar `var' vald_prev if worker_lim==0,  fcolor(gs0) fintensity(100) lcolor(gs0) barwidth(.4)), ///
 scheme(s1mono)  xlabel(0 1 2 3 4 5 "5+",) ///
 ylabel(, grid angle(horizontal)) xtitle(Previous Election Periods in Office) ytitle(Share of `var') legend(order(1 "Workers" 2 "Non Workers"))
	graph save `var'_exp, replace
	restore
	}
	graph combine listleader_exp.gph vald_ri_prom_exp.gph,  xcommon iscale(1.3) ysize(7) xsize(20) scheme(s1mono)
	graph save Figure_W4, replace
}

*Save data used to compile Figure 6

gen worker_parl=vald_ri==1 & worker_lim==1
collapse (sum) vald_ri worker_parl (mean)  worker_lim_pop_y wsh_y_valu_pvoters, by(valar parti_initial)
bysort  valar: egen vald_ri_tot=sum(vald_ri)
bysort valar: egen worker_parl_tot=sum(worker_parl)
 
 
 gen missing_workers_parti=vald_ri*wsh_y_valu_pvoters-worker_parl
 bysort valar: egen missing_workers_tot=sum (missing_workers_parti)
 gen missing_workers_share=missing_workers_parti/missing_workers_tot
 gen share_seats=vald_ri/vald_ri_tot
 gen share_workers=worker_parl/vald_ri
 keep missing_workers_share share_seats share_workers wsh_y_valu_pvoters parti_initial valar
 
 save missing_workers_valar, replace
 collapse (mean) missing_workers_share share_seats share_workers wsh_y_valu_pvoters , by(parti_initial )
  save missing_workers_mean, replace
***Figure W8

preserve
replace parti_initial=parti_initial_ri if parti_initial==""
gen parti_eng=parti_initial
replace  parti_eng ="" if parti_initial=="L"
replace  parti_eng ="L" if parti_initial=="F"
*replace  parti_eng ="Ce" if parti_initial=="C"
replace  parti_eng ="Cd" if parti_initial=="K"
replace  parti_eng ="Sd" if parti_initial=="B"
keep if parti_initial!="" & valar>=1973
*listleader nom nom_only
gen listleader=nrinom==1 if vald==1 & nrinom!=.
gen nom= nrinom!=. & valar>=1982
gen nom_only=nom==1 & vald!=1 & valar>=1982
foreach samp in vald vald_ri {
foreach var in worker_lim{
preserve
keep if `samp'==1
replace  parti_initial ="" if parti_initial=="L"
replace  parti_initial ="" if parti_initial=="G" & (valar<1988 |valar==1991)
replace  parti_initial ="" if parti_initial=="K" & valar<1991
replace  parti_initial ="" if parti_initial=="B" & valar <2010
replace  parti_initial ="L" if parti_initial=="F"
keep if parti_initial!="" & valar>=1973
collapse (mean) `var' , by (parti_initial parti_eng valar) 
twoway (connected `var' valar if parti_initial=="G",  msize(zero) mlabel(parti_eng) mlabsize(large) mlabcolor(forest_green) mlabposition(0) lcolor(forest_green) lpattern(dash)) /// 
(connected `var' valar if parti_initial=="S",  msize(zero) mlabel(parti_eng) mlabsize(large) mlabcolor(cranberry) mlabposition(0) lcolor(cranberry) lpattern(dash)) ///
(connected `var' valar if parti_initial=="V",  msize(zero) mlabel(parti_eng) mlabsize(large) mlabcolor(maroon) mlabposition(0) lcolor(maroon) lpattern(dash)) ///
 (connected `var' valar if parti_initial=="B",  msize(zero) mlabel(parti_eng)  mlabsize(large) mlabcolor(dkorange) mlabposition(0) lcolor(dkorange) lpattern(dash)) ///
  (connected `var' valar if parti_initial=="M",  msize(zero) mlabel(parti_eng)  mlabsize(large) mlabcolor(dknavy) mlabposition(0) lcolor(dknavy) lpattern(dash)) ///
   (connected `var' valar if parti_initial=="L",  msize(zero) mlabel(parti_eng)  mlabsize(large) mlabcolor(navy) mlabposition(0) lcolor(navy) lpattern(dash)) ///
    (connected `var' valar if parti_initial=="K",  msize(zero) mlabel(parti_eng)  mlabsize(large) mlabcolor(blue) mlabposition(0) lcolor(blue) lpattern(dash)) ///
 (connected `var' valar if parti_initial=="C",  msize(zero) mlabel(parti_eng) mlabsize(large) mlabcolor(green) mlabposition(0) lcolor(green) lpattern(dash)), ///
 scheme(s1mono)  xlabel(1973 1976 1979 1982 1985 1988 1991 1994 2002 2006 2010 2014 2018, angle(45)) ///
 ylabel(, grid angle(horizontal)) xtitle(Election Year) ytitle(Share of Workers) 
 graph save party_`var'_time_`samp', replace

}
}

graph combine party_worker_lim_time_vald.gph  party_worker_lim_time_vald_ri.gph, ycommon col(2) row(1) ysize(7) xsize(20) scheme(s1mono) iscale(1.2)
 
 graph save Figure_W8, replace

 restore
* Union share, fixa!


foreach div in   union_worker_prev_prev_vald party_youth_org_lim {
preserve
keep if vald_ri==1 & worker!=. & valar>=2002
	keep `div'  parti_initial worker_lim
	collapse (mean)  `div', by(parti_initial worker_lim)
	sum
	gen p_w=.8
	gen p_nw=1.2
	gen pos_w=.
	gen pos_nw=.
	
	foreach parti in V S G C F K  M  B {
		replace pos_w=p_w if parti_initial=="`parti'"
		replace pos_nw=p_nw if parti_initial=="`parti'"	
		replace p_w= p_w+1
		replace p_nw = p_nw+1
		
	}
	drop if worker==.
		twoway (bar  `div' pos_w if worker==1, barw(.4) fi(inten100) lcolor(gs1)  lwidth(medthick) fcolor(gs1))  ///
(bar  `div' pos_nw if worker==0, barw(.4) fi(inten100) lcolor(gs5)  lwidth(medthick)  fcolor(gs5)) /// 												  		  
	, xsize(20) ysize(14) xlabel( 1 "Left Party" 2 "Soc. Dem" 3 "Green Party" 4 "Center Party" 5 "Liberal Party" 6"Christ Dem." 7 "Cons. Party" 8 "Swed. Dem.", angle(forty_five)) ylabel(, angle(horizontal) grid)    ///
	 scheme(s1mono) legend(order(1 "Workers" 2 "Not Workers"  ) col(2))
	graph  save workers_party_`div'_parl, replace
	
	restore
}

***  Figure 9

preserve
keep if vald==1 & worker_lim!=. & valar>=2002
	keep union_worker_prev_prev_vald  parti_initial worker_lim
	collapse (mean)  union_worker_prev_prev_vald, by(parti_initial worker)
	sum
	gen p_w=.8
	gen p_nw=1.2
	gen pos_w=.
	gen pos_nw=.
	
	foreach parti in V S G C F K  M  B {
		replace pos_w=p_w if parti_initial=="`parti'"
		replace pos_nw=p_nw if parti_initial=="`parti'"	
		replace p_w= p_w+1
		replace p_nw = p_nw+1
		
	}
	drop if worker_lim==.
		twoway (bar  union_worker_prev_prev_vald pos_w if worker==1, barw(.4) fi(inten100) lcolor(gs1)  lwidth(medthick) fcolor(gs1))  ///
(bar  union_worker_prev_prev_vald pos_nw if worker==0, barw(.4) fi(inten100) lcolor(gs5)  lwidth(medthick)  fcolor(gs5)) /// 												  		  
	, xsize(20) ysize(14) xlabel( 1 "Left Party" 2 "Soc. Dem" 3 "Green Party" 4 "Center Party" 5 "Liberal Party" 6"Christ Dem." 7 "Cons. Party" 8 "Swed. Dem.", angle(forty_five)) ylabel(, angle(horizontal) grid)    ///
	 scheme(s1mono) legend(order(1 "Workers" 2 "Not Workers"  ) col(2))
	graph  save workers_party_union_mun, replace
	
	restore
preserve
keep if vald_ri==1 & worker_lim!=. & valar>=2002
	keep union_worker_prev_prev_vald  parti_initial worker_lim
	collapse (mean)  union_worker_prev_prev_vald, by(parti_initial worker)
	sum
	gen p_w=.8
	gen p_nw=1.2
	gen pos_w=.
	gen pos_nw=.
	
	foreach parti in V S G C F K  M  B {
		replace pos_w=p_w if parti_initial=="`parti'"
		replace pos_nw=p_nw if parti_initial=="`parti'"	
		replace p_w= p_w+1
		replace p_nw = p_nw+1
		
	}
	drop if worker_lim==.
		twoway (bar  union_worker_prev_prev_vald pos_w if worker==1, barw(.4) fi(inten100) lcolor(gs1)  lwidth(medthick) fcolor(gs1))  ///
(bar  union_worker_prev_prev_vald  pos_nw if worker==0, barw(.4) fi(inten100) lcolor(gs5)  lwidth(medthick)  fcolor(gs5)) /// 												  		  
	, xsize(20) ysize(14) xlabel( 1 "Left Party" 2 "Soc. Dem" 3 "Green Party" 4 "Center Party" 5 "Liberal Party" 6"Christ Dem." 7 "Cons. Party" 8 "Swed. Dem.", angle(forty_five)) ylabel(, angle(horizontal) grid)    ///
	 scheme(s1mono) legend(order(1 "Workers" 2 "Not Workers"  ) col(2))
	graph  save workers_party_union_parl, replace
	
	restore


graph combine workers_party_union_mun.gph workers_party_union_parl.gph, ycommon col(2) row(1) ysize(7) xsize(20) scheme(s1mono) iscale(1.2)

 graph save Figure_9, replace
 
 log close
